home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / logitech.arc / WP50.DEF < prev   
Text File  |  1989-07-28  |  7KB  |  176 lines
  1.  
  2. ;        ╒══════════════════════════════════════════════════════╕
  3. ;        │                                                      │ 
  4. ;        │  LogiTech Mouse menu definition for WordPerfect 5.0  │
  5. ;        │                                                      │
  6. ;        ╘══════════════════════════════════════════════════════╛
  7.  
  8.  
  9. ;                    Alan J. Bouley  --  January, 1989
  10.  
  11. ; GEnie:  A.Bouley
  12. ; CIS:    73627,3644
  13.  
  14. ;comments are preceded with ";"
  15.  
  16. BEGIN lfbtn,mdbtn,rtbtn,leftm,rightm,upm,downm,16,40
  17.                               ;16,40 is mouse sensitivity
  18.    
  19. lfbtn: TYPE ENTER             ;Left Button -- Carriage Return
  20.  
  21. mdbtn: MATCH 25,3,," Srch:",F2,mdmenu
  22.                               ;Middle Button executes F2 if in Search Mode,
  23.                               ;  otherwise shows the menu for function keys
  24.  
  25. rtbtn: EXECUTE cancel         ;Right Button works as F1 - CANCEL
  26.  
  27. mdmenu: POPUP 1,29,120        ;1,29 is the POPUP screen position
  28.                               ;120 sets all TEXT" ... "  to inverse video
  29.  
  30.  
  31. ;                ┌─── menu position 1,1
  32. ;                │                 
  33. ;                                 
  34.            TEXT "╒══════════════════════════════════════════════════╕"
  35.            TEXT "│F1 Cancel       │F2 Search -    │F3 Help         │"
  36.            TEXT "│   Thesaurus    │   Replace      │   Reveal Codes │"
  37.            TEXT "│   Setup        │   Search -    │   Switch       │"
  38.            TEXT "│   Shell        │   Spell        │   Screen       │"
  39.            TEXT "│────────────────┼────────────────┼────────────────│"
  40.            TEXT "│F4 -Indent     │F5 List Files   │F6 Bold         │"
  41.            TEXT "│   Block        │   Mark Text    │   Flush Right  │"
  42.            TEXT "│   -Indent-   │   Date/Outline │   Center       │"    
  43.            TEXT "│   Move         │   Text In/Out  │   Tab Align    │"
  44.            TEXT "│────────────────┼────────────────┼────────────────│"
  45.            TEXT "│F7 Exit         │F8 Underline    │F9 Merge R      │"
  46.            TEXT "│   Math/Columns │   Style        │   Graphics     │"
  47.            TEXT "│   Print        │   Format       │   Merge Codes  │"
  48.            TEXT "│   Footnote     │   Font         │   Merge/Sort   │"
  49.            TEXT "│────────────────┼────────────────┴────────────────│"
  50.            TEXT "│F10 Save        │                                 │"
  51.            TEXT "│    Macro Def   │      W o r d P e r f e c t      │"
  52.            TEXT "│    Macro       │               5.0               │"
  53.            TEXT "│    Retrieve    │                                 │"
  54.            TEXT "╘══════════════════════════════════════════════════╛"
  55.  
  56.  
  57.  
  58. ;       This section SELECTS a function from the TEXT menu
  59. ;       Numbers are relative the menu, not the screen
  60. ;
  61. ;              ┌──────────────  set row # for function
  62. ;              │  ┌─────────────  set column # for start of menu bar
  63. ;              │  │  ┌────────────  set # of spaces for menu bar
  64. ;              │  │  │  ┌───────────  select function
  65. ; F1                 
  66.        SELECT 02,04,14,cancel
  67.        SELECT 03,04,14,thesaurus
  68.        SELECT 04,04,14,setup 
  69.        SELECT 05,04,14,shell 
  70. ; F2           │  │  │  │
  71.        SELECT 02,21,14,Fsearch
  72.        SELECT 03,21,14,replace
  73.        SELECT 04,21,14,Bsearch
  74.        SELECT 05,21,14,spell
  75. ; F3           │  │  │  │  
  76.        SELECT 02,38,14,help
  77.        SELECT 03,38,14,recode
  78.        SELECT 04,38,14,switch
  79.        SELECT 05,38,14,screen
  80. ; F4           │  │  │  │
  81.        SELECT 07,04,14,indent
  82.        SELECT 08,04,14,block
  83.        SELECT 09,04,14,indent2
  84.        SELECT 10,04,14,move
  85. ; F5           │  │  │  │
  86.        SELECT 07,21,14,lsfile
  87.        SELECT 08,21,14,mktext
  88.        SELECT 09,21,14,dateot
  89.        SELECT 10,21,14,textio
  90. ; F6           │  │  │  │  
  91.        SELECT 07,38,14,bold
  92.        SELECT 08,38,14,flush
  93.        SELECT 09,38,14,center
  94.        SELECT 10,38,14,tab
  95. ; F7           │  │  │  │
  96.        SELECT 12,04,14,exit
  97.        SELECT 13,04,14,math
  98.        SELECT 14,04,14,print
  99.        SELECT 15,04,14,footnote
  100. ; F8           │  │  │  │
  101.        SELECT 12,21,14,underline
  102.        SELECT 13,21,14,style
  103.        SELECT 14,21,14,format
  104.        SELECT 15,21,14,font 
  105. ; F9           │  │  │  │  
  106.        SELECT 12,38,14,mergeR
  107.        SELECT 13,38,14,graphics
  108.        SELECT 14,38,14,mergecds
  109.        SELECT 15,38,14,mgsort
  110. ; F10          │  │  │  │
  111.        SELECT 17,05,13,save
  112.        SELECT 18,05,13,macrodef
  113.        SELECT 19,05,13,macro
  114.        SELECT 20,05,13,retrieve
  115.  
  116.        PEND
  117.  
  118. leftm:     MATCH 25,49,,"D",mouseL,nothing
  119. rightm:    MATCH 25,49,,"D",mouseR,nothing
  120. upm:       MATCH 25,49,,"D",mouseU,nothing
  121. downm:     MATCH 25,49,,"D",mouseD,nothing
  122.  
  123. nothing:   NOTHING
  124.  
  125. ;          When a SELECT or MATCH is made this section executes the command
  126. ;
  127. ; ┌───────────────────────────  menu & match function
  128. ; │          ┌──────────────────  command to keyboard buffer
  129. ; │          │  ┌──┬──────────────  extended character codes
  130. ;               
  131. mouseL:    TYPE 0,75          ;cursor Left
  132. mouseR:    TYPE 0,77          ;cursor Right
  133. mouseU:    TYPE 0,72          ;cursor Up
  134. mouseD:    TYPE 0,80          ;cursor Down
  135. F2:        TYPE 0,60          ;F2      
  136. cancel:    TYPE 0,59          ;F1
  137. thesaurus: TYPE 0,104         ;Alt F1
  138. setup:     TYPE 0,84          ;Shift F1
  139. shell:     TYPE 0,94          ;Control F1
  140. Fsearch:   TYPE 0,60          ;F2
  141. replace:   TYPE 0,105         ;Alt F2
  142. Bsearch:   TYPE 0,85          ;Shift F2
  143. spell:     TYPE 0,95          ;Control F2
  144. help:      TYPE 0,61          ;F3
  145. recode:    TYPE 0,106         ;Alt F3
  146. switch:    TYPE 0,86          ;Shift F3 
  147. screen:    TYPE 0,96          ;Control F3
  148. indent:    TYPE 0,62          ;F4
  149. block:     TYPE 0,107         ;Alt F4
  150. indent2:   TYPE 0,87          ;Shift F4
  151. move:      TYPE 0,97          ;Control F4
  152. lsfile:    TYPE 0,63          ;F5
  153. mktext:    TYPE 0,108         ;Alt F5 
  154. dateot:    TYPE 0,88          ;Shift F5
  155. textio:    TYPE 0,98          ;Control F5
  156. bold:      TYPE 0,64          ;F6
  157. flush:     TYPE 0,109         ;Alt F6
  158. center:    TYPE 0,89          ;Shift F6
  159. tab:       TYPE 0,99          ;Control F6
  160. exit:      TYPE 0,65          ;F7
  161. math:      TYPE 0,110         ;Alt F7
  162. print:     TYPE 0,90          ;Shift F7
  163. footnote:  TYPE 0,100         ;Control F7
  164. underline: TYPE 0,66          ;F8
  165. style:     TYPE 0,111         ;Alt F8 
  166. format:    TYPE 0,91          ;Shift F8
  167. font:      TYPE 0,101         ;Control F8
  168. mergeR:    TYPE 0,67          ;F9
  169. graphics:  TYPE 0,112         ;Alt F9
  170. mergecds:  TYPE 0,92          ;Shift F9
  171. mgsort:    TYPE 0,102         ;Control F9
  172. save:      TYPE 0,68          ;F10
  173. macro:     TYPE 0,113         ;Alt F10
  174. retrieve:  TYPE 0,93          ;Shift F10
  175. macrodef:  TYPE 0,103         ;Control F10
  176.